home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Rexx / RxsLib.asm < prev    next >
Assembly Source File  |  1990-07-14  |  1KB  |  59 lines
  1. *
  2. *    RxsLib.asm for PCQ Pascal
  3. *    Copyright 1990 Patrick Quaid
  4. *
  5. *    These routines call the ARexx resident library for the
  6. *    procedures and functions declared in Include/Rexx/RxsLib.i
  7. *
  8.  
  9.  
  10.         SECTION PCQ_Runtime,CODE
  11.  
  12.     XREF    _RexxSysBase
  13.  
  14. _LVORexx    EQU    -30
  15.     XDEF    _LVORexx
  16. _LVOrxParse    EQU    -36    ; (private)
  17.     XDEF    _LVOrxParse
  18. _LVOrxInstruct    EQU    -42    ; (private)
  19.     XDEF    _LVOrxInstruct
  20. _LVOrxSuspend    EQU    -48    ; (private)
  21.     XDEF    _LVOrxSuspend
  22. _LVOEvalOp    EQU    -54    ; (private)
  23.     XDEF    _LVOEvalOp
  24. _LVOAssignValue    EQU    -60    ; (private)
  25.     XDEF    _LVOAssignValue
  26. _LVOEnterSymbol    EQU    -66    ; (private)
  27.     XDEF    _LVOEnterSymbol
  28. _LVOFetchValue    EQU    -72    ; (private)
  29.     XDEF    _LVOFetchValue
  30. _LVOLookUpValue    EQU    -78    ; (private)
  31.     XDEF    _LVOLookUpValue
  32. _LVOSetValue    EQU    -84    ; (private)
  33.     XDEF    _LVOSetValue
  34. _LVOSymExpand    EQU    -90    ; (private)
  35.     XDEF    _LVOSymExpand
  36.  
  37. _LVOSendDOSPkt        EQU    -420    ; private
  38.     XDEF    _LVOSendDOSPkt
  39. _LVOWaitDOSPkt        EQU    -426    ; private
  40.     XDEF    _LVOSendDOSPkt
  41.  
  42. _LVOLockRexxBase    EQU    -450
  43.     XDEF    _LVOLockRexxBase
  44.     XDEF    _LockRexxBase
  45. _LockRexxBase
  46.     move.l    4(sp),d0
  47.     move.l    _RexxSysBase,a6
  48.     jmp    _LVOLockRexxBase(a6)
  49.  
  50. _LVOUnlockRexxBase    EQU    -456
  51.     XDEF    _LVOUnlockRexxBase
  52.     XDEF    _UnlockRexxBase
  53. _UnlockRexxBase
  54.     move.l    4(sp),d0
  55.     move.l    _RexxSysBase,a6
  56.     jmp    _LVOUnlockRexxBase(a6)
  57.  
  58.     END
  59.